home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8404.arc / BINSRCH.ASM next >
Assembly Source File  |  1986-09-14  |  3KB  |  83 lines
  1. ; 
  2. ASM_SEG        SEGMENT PARA PUBLIC 
  3.           ASSUME  CS:ASM_SEG 
  4.           PUBLIC    BINSEARCH 
  5. BINSEARCH PROC FAR                  
  6. ; 
  7. ;    THIS SUBROUTINE IS TO BE CALLED FROM BASIC OR 
  8. ;    ANOTHER HIGH-LEVEL PROGRAMMING LANGUAGE.  IT 
  9. ;    DOES A BINARY SEARCH ON A DATA TABLE, 
  10. ;    RETURNING THE DESIRED INDEX INTO THE TABLE. 
  11. ; 
  12. ;    FORMAT: 
  13. ; 
  14. ;         CALL BINSEARCH (itable, ntable, jkey, indx) 
  15. ; 
  16. ;    WHERE     itable    IS A TABLE OF INTEGER VALUES 
  17. ;         ntable    IS THE NUMBER OF ITEMS IN THE TABLE 
  18. ;         jkey IS AN INTEGER WHOSE LOCATION IN THE TABLE 
  19. ;         IS DESIRED indx IS THE RESULT.  
  20. ;         jkey = itable(indx) 
  21. ; 
  22. ;    NOTES: 
  23. ;         ITABLE MUST BE IN ASCENDING ORDER. 
  24. ;         JKEY MUST BE A VALID KEY, I.E., IT MUST BE 
  25. ;         CONTAINED IN ITABLE. 
  26. ; 
  27. ;    SEE APPENDIX C. OF THE BASIC MANUAL FOR DISCUSSION 
  28. ;    OF THE BASIC CALLING SEQUENCE. 
  29. ; 
  30.           PUSH BP             ;YES, THIS IS NECESSARY! 
  31.           MOV  BP, SP 
  32. ; 
  33.           MOV  SI, [BP]+12    ;ADDRESS OF ITABLE 
  34.           MOV  DI, [BP]+10    ;ADDRESS OF NTABLE 
  35.           MOV  DX, [DI]       ;NTABLE IN DX 
  36.           MOV  DI, [BP]+8     ;ADDRESS OF JKEY 
  37.           MOV  AX, [DI]       ;JKEY IN AX 
  38.           MOV  DI, [BP]+6     ;ADDRESS OF INDX 
  39.           MOV  BP, SI         ;MOVE ADDRESS OF ITABLE TO BP 
  40. ; 
  41. ;    INITIALIZE ILOW, IHIGH 
  42. ; 
  43.           MOV  CX, 1               ;CX=ILOW=1 
  44. ;                              DX=IHIGH=NTABLE 
  45. SEARCH_LOOP: 
  46. ; 
  47.           MOV  SI, DX         ;IHIGH INTO SI 
  48.           ADD  SI, CX         ;IHIGH+ILOW IN SI 
  49.           SHR  SI, 1          ;DIVIDE BY 2 (TRUNCATE): IMID 
  50. ; 
  51.           PUSH SI             ;SAVE IMID, CALC. OFFSET NEXT 
  52.           DEC  SI             ;ITABLE(1) IS OFFSET 0 
  53.           SHL  SI, 1          ;TWO BYTES PER ENTRY 
  54. ; 
  55.           CMP  [BP][SI], AX   ;COMP. ITABLE(IMID) WITH JKEY 
  56. ; 
  57.           POP  SI             ;RECOVER IMID 
  58. ; 
  59.           JE   CLEAN_UP       ;JKEY = ITABLE(IMID), FOUND IT 
  60.           JG   JKEY_SMALLER   ;JKEY < ITABLE(IMID) 
  61. ; 
  62.           MOV  CX, SI         ;JKEY > ITABLE(IMID), NEW ILOW 
  63.           INC  CX             ;ILOW = IMID + 1 
  64.           JMP  SEARCH_LOOP 
  65. JKEY_SMALLER: 
  66.           MOV  DX, SI         ;NEW IHIGH 
  67.           DEC  DX             ;IHIGH = IMID - 1 
  68.           JMP  SEARCH_LOOP 
  69. ; 
  70. ;    END SEARCH_LOOP 
  71. ; 
  72. CLEAN_UP: 
  73.           MOV  [DI], SI       ;STORE INDX 
  74. ; 
  75.           POP  BP             ;RESTORE BP 
  76.           RET  8              ;4 ARGUMENTS 
  77. ; 
  78. BINSEARCH ENDP 
  79. ; 
  80. ASM_SEG        ENDS 
  81. ; 
  82.           END 
  83.